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This summary contains information for use in preparing BASIC programs to be 
compiled by the BASIC compiler, as implemented on the SPERRY UNIVAC 
Operating System/3 (0S/3). 


Detailed information is covered in the BASIC programmer reference, UP-9168 
(current version). 


LOGON PROCEDURE 


For initial connection with the operating system, the user must enter the LOGON 
command in the system mode from a terminal. This command identifies the 
user to the operating system and initiates the user task. The format of the 
LOGON command is: 


LOGON user-id [,acct]|, password] 


where: 


© user-id 

Is a 1- to 6-character alphanumeric code identifying the user 
to the system. The user-id is used by the system to correctly 
route messages as well as job and command output and to 
determine which commands may be used on the system. The 
user-id must begin with an alphabetic character. 


acct 
ls a 1- to 4-character alphanumeric code used for system time 
accounting. 


password 
ls a l- to 6-character alphanumeric code that controls user 
access to the overall system. 


SOURCE PROGRAM CONSTRUCTION 


After logging on and being accepted by the system, the user calls BASIC by 
issuing the following executive command: 


BASIC 
Control is transferred to BASIC, which immediately responds: 


BA001 OS/3 BASIC READY (VER xx.xx) BEGIN 


t this time the user is at the command level in BASIC. If a command other than 
NEW or OLD is entered, the syntax checker is called immediately to process the 
first source statement. 


After the compiler is called, the system responds with an asterisk, which 
indicates a request for source input. A line of input consists of a single BASIC 
source language or a BASIC editing command, followed by the TRANSMIT 
function. 





LANGUAGE ELEMENTS 


Characters 


letter | ABCDEFGHIJKLMNOPORSTUVWXYZ 
digit 0123456789 


delimiter +—F/(j)<>&t 
(operator) 

delimiter 

(separator) 

special $@#?'% 
character 


open-string letter, digit operator, special character, period (.), or 
character semicolon (:) 


string character letter, digit, operator, special character, period (.), 
semicolon {;), comma (,}, or a blank (A) 
NOTES: 


1, The character blank, which may be used in constructing the BASIC 
programs, is designated in the syntax by the symbol A. Any spaces 
that appear in the syntax equations do not denote blanks in the BASIC 
language. Blanks are significant in BASIC only when they appear ina 
comment or in a string constant. 














2. The character quote (") delimits the beginning and end of a closed- 
string constant. If a quote is required within a closed string, use two 
consecutive quotes. 


3. Exponentiation is specified with a pair of asterisks (**). A vertical 
arrow | is also permitted for exponentiation, where applicable. & 


Constants 
decimal number A fraction followed by optional exponent field. 
Fraction: 


Series of one or more digits containing optional 
decimal point preceding, following, or embedded in 
series of digits. 

Examples: 

85 85. .85 85.6438 


Exponent: 


Indicates the power of 10 by which the fraction is to 
be multiplied and consists of the letter E followed by 
optional sign and one or two digits. Sign is + or —; if 
omitted, + is assumed. 

Examples: 

E5 E+14 £+8 E-—-04 E—2 


closed string Quote followed by a series of 0 to 4095 string 
characters followed by a quote. 


Example: “ABZ154A84” 


open string A series of 1 to 4095 open-string characters, blanks, 
or quotes. 
Example: AAB 


Series of one to five digits without sign, decimal 
point, or exponent field. It must be in the range 1 to 
99999. 





LANGUAGE ELEMENTS (cont) 


NOTES: 
1. 


All decimal numbers are converted and stored internally in floating- 
point format. The exponent occupies seven bits and indicates the 
power to which the number 16 must be raised. The sign occupies one 
bit. In floating-point format, the mantissa occupies 24 bits and contains 
a 6-digit hexadecimal number in normalized form. In BASIC, if the 
value of the fraction part of a decimal number, disregarding the 
decimal point, exceeds 2*4—-1, the number ts rounded and trailing 
digits are lost. For example: 


123456789 
is acceptable, but is (effectively) rounded to 
12.345679 | 


If the mantissa is nonzero, the magnitude of the floating-point number 
has the following range: 


16°65 < M < 16® (approximately 10°78 < M < 10") 


Overflow and underflow conditions for numeric constants are 
processed as errors. 


All string constants are stored in EBCDIC code. A 2-byte length field is 
prefixed to each string before it is stored; the value of the length byte 
is not included. If a given string constant contains more than 4095 
characters, it is truncated at the right. Note that an open-string 
constant, as opposed to a closed-string constant, cannot contain a 
comma. Moreover, an open-string constant ts permitted only as input to 
the READ and INPUT statements. Note that it is not possible to enter a 
String constant longer than 74 characters in a program, because the 
maximum line length is 80 characters. 


Ji A line number is an integer between I and 99999, and must precede 
each statement in a BASIC program. The line numbers specify the 
logical sequence of statements in a program (ascending order). They 
are also used as statement labels for transferring control during 
program execution. 

Leading zeros in a line number are ignored. 

Variables 


scaler variable Defined as a numeric variable or a string variable. 


numeric variable A letter optionally followed by a single digit. 


Examples: X X2 


String variable A letter followed by a dollar sign ({$)}, or a letter 
followed by a single digit followed by a dollar sign. 


Examples: A$ Q6$ 


array variable Defined as a numeric array variable or a String array 
variable. 


numeric array A letter followed by one or two subscript expressions 
variable enclosed in parentheses. 


Examples: M{2} P(8,92} X(A+B) 


stiing array A letter followed by a dollar sign ($) followed by one 
variable or two subscript expressions enclosed in 





parentheses. 
Examples: M$(2} C$(A+B) D$(A,C) 





LANGUAGE ELEMENTS (cont) 
NOTES: 


1. Numeric variables may only be assigned decimal numeric values. 
‘Numeric array variables may only be assigned decimal numeric values. 


2. A subscript may be defined using any arithmetic expression. During 
execution, the value used to locate the array element referenced is 
computed by rounding the subscript expression to the nearest integer. 
If the subscript value is not within the bounds specified (or implied) for 
that dimension of the referenced array, then the user is given an error 
message and program execution terminates. 


Two-dimensional numeric arrays are stored in row-major order. 


3 String variables may only be assigned character string values. All such 
variables are initialized to the null string (zero length.) 


4, String array variables may only be assigned character string values. All 
elements of these string array variables are initialized to the null string 
(zero length). 


The rules for numeric array variables regarding bounds and subscript 
evaluation apply to string array variables as well. 


Expressions 


arithmetic Defined as a term optionally preceded by a minus 
expression (—) or plus (+); or an arithmetic expression plus (+) 
or minus (—) a term. 


Example: A**2*B—3 


A factor or a term multiplied (*) or divided (/) by a 
factor. 


Example: A**2*B 


A primary or a factor raised to a power (**) 
designated by a primary. 


Example: A**2 


primary A decimal number, numeric reference, function 
reference, or an arithmetic expression enciosed in 
parentheses. 


Example: 2 A RND(X) (C—D) 


string expression A string primary or string expression followed by an 
ampersand (&) denoting concatenation, followed by 
another string expression. 


Example: “ABC” &B$ 
string primary A closed-string reference or function reference, 


Example: A$ SEG$ (D$,6,8) “AB” 





1. The exponentiation operator (**) may be written (where applicable) as _ 
a vertical arrow 1. 


2. A**B**C is compiled as (A**B)**C. 


3. Parentheses may be used to factor subexpressions. 
4. The following are treated as errors: 
= Mixed mode expressions 


LANGUAGE ELEMENTS (cont) 
NOTES (cont): 


5 Division by zero 
i] Zero to a negative power 
a Overflow and underflow conditions existing during the 


evaluation of arithmetic expressions 


@ 5, A negative number can only be raised to a nonzero positive integer 
number. The maximum value of this positive integer is 15. Any 
violation of this rule is treated as an error. 


Function References 


os 
iN 
cry 
xn 


EXP(x) 
LOG(x) 









SQR(x) 


if x > 0, function of x on (0,1) 

if x <0, new random seed on (0,1) 
if x = 0, random on (0,1) 

if no argument, x = 0 assumed 


INT 





SGN{x) 






+1, ifx >0 
foun= \ 
—lifx<0 


(argument list) 

ENS 
W009 
POSH 
" 
vs 
eoGuir 
0 
oF WN 


See BASIC programmer reference, UP-9168 (current 
version). 





“ 










= 


PER (#N,A$) 





LANGUAGE ELEMENTS (cont) 


Function References (cont) 


Numeric Valued Functions 


TYP (#N,A$) See BASIC programmer reference, UP-9168 (current 
version). 


NUM Number of values last vector MAT INPUT statement 


= 
> 
ai 
sc A 


FNA$ to FNZ$ User-defined string functions 
{argument list} 


























NOTES: 


x in radians 


@Result in radians 


Statements 


statement Line number followed by an executable statement or 
nonexecutable statement 

executable statement |Assign, control, input/output, matrix, or data file 
statement 

nonexecutable Declaration or remark statement 

statement 


NOTES: 


1. Each BASIC statement entered into a program must be prefixed with a 
line number. These line numbers determine the logical order of 
Statements within a program. They are used in several of the control « 
statements to effect transfers of control. 










2. Each BASIC statement is summarized in this reference and described 
in detail in the BASIC programmer reference, UP-9168 (current 
version). 


SYNTAX CONVENTIONS 


In describing the statements, the following conventions are used: 


1. Keywords that may be used in the statement are shown in capital & 
letters. 

2. Names constructed using lowercase letters and embedded hyphens 
designate syntactic variables. 

e. Brackets, [ ], are used to enclose optional parameters. 

4, Braces, | {, are used to enclose alternattves. 


SYNTAX CONVENTIONS (cont) 


5: Ellipsis, . . ., following an operand parameter indicates that the 
programmer may specify more than one parameter of that type. For 
example, the syntax 


READ variable [,variable . . .] 


allows the statements 
@ READ A 
READ A,B 
READ A,B,C 


to contain many input variables in the READ list. 


The following syntactic units occur several times in the specification of the 
editing commands: 


line-number: a series of one to five digits 


line-number-list: list-item [list-item . . | 
list-item: line-number 
line-number 5 line-number 


range: line-number (increment) 


increment: a series of one to four digits 


letter ae 
at 
@ $character[character . . |] 
NOTES: 


1. A line-number-list may contain list-items that reference single lines and 
others that reference a sequence of lines (all lines between the first 
and second line numbers specified, inclusive). 


filename: 


Example: 
120, 200—250, 300 


This list references those lines numbered 120, 200 to 250 inclusive, 


and 300. 
2. A line number range specifies the starting line number and an 
increment for calculating successive line numbers. 
Example: 
100 (10) 
The range specified is 100, 110 120,... 
3. in general, a file name consists of from one to eight letters or digits, the 
first of which is a fetter. The length of the file name can be a maximum 
_ of 44 characters. Embedded characters, such as ., $, #, @, or —, may 


be included in this file name. 


4. Except for the command verb and commands in which file names are 
specified, blanks are ignored. 








STATEMENT FORMATS 









17 CALL “SUBR":3+4,A, Bi) 
18 CALL “FIND':#3,SIN,(A} 
19 CALL.“SEND":C(), K(3,4),B$ 


23 CHAIN “PROGRAM2,CHAINLIB,PACK34” 
24 CHAIN A$ WITH #3 
25 CHAIN #4 WITH #1,#4,#J8 


CALL string-constant|:param-list] 





















String-expression ¢ 
channel-setter 
(WITH channel-setter....] 


CHAIN 
















34 CHANGE A$ 10 V 
35 CHANGE M TO B3$ 
36 CHANGE G TO Ki§$ BIT 12 


string FO array 
array TO string-variable 
[BIT expression] 


CHANGE : 

























45 DATA 1,3,6,1E3,—.34,17.3£34 
47 DATA “STRING ONE” STRING TWO 
49 DATA THIRD STRING, 33 


54 DEF FND(X, Y}=SQR(X**2+Y*"2} 
55 DEF FNS$(X, ¥$}=SEG$(Y$,X,x)$"" 
56 DEF FNQ 

57 DEF FNG$,I,J,K 

58 DEF FNE{A,B,C).WZ 


67 DIM A(3),B(4 5) 
68 DIM G$(45) 
69 DIM C(100),H$(2,40) 


string-constant 


DATA 
numeric-constant 







DEF FNletter|$j[(param-list)] 
| local-list] 
[expression] 























DIM letterf$}{integer|,integer]).... 




















82 FILE #3:"*" 
83 FILE #R:"SQ,ERRORS,SPOOL3" 

84 FILE #7:“COBLPR,LIBFILE(/WRPASS)’ 
85 FILE #J:A$ 


FNEND 88 FNEND 


FOR numeric-variable=numeric-expression 93 FOR I=3 TO 10 
TO numeric-expression 94 FOR J2=! TO POS(A$,B$,!) 
(STEP numeric-expression| 95 FOR K=J2 TQ 13 STEP 4 


GOSUB tine-number 102 GOSUB 943 
GOTO line-number 111 GOTO 130 


IF Format 1: 120 IF A$S="YES” THEN 340 
122 IF SIN(X)}=0.5 GOTO 43 
123 iF END#3 GOSUB 230 


FILE channel-setter:string-expression 


























expression test expression 


GOTO line-number 
GOSUB 
THEN 





Format 2: 


| WOR charnel-setter 


MORE 
GOTO tine-number 
GOSU eh 


THEN 


INPUT (channel-setter:] variable-name.... 130 INPUT A,B$ 
140 INPUT #1:D(3,4),J 


LET Format 1: 143 LET A$S=SEG$(A$,3,4} 
145 LET B(3.4)=SIN(Y) 
147 LET FND=B(3,4)*A(4) +1 
















numeric-yariabie 
f=numeric- variable...] 
=numeric-variable 








Format 2: 






string-variable 
[=string-variable.. | 
=String-expression 







Format 3: 







FNletter{$]==expression 










LIBRARY string-constant.... 155 LIBRARY “SUBLIBRARY,PACK11" 
157 LIBRARY “CATALOGEDSUBLIBRARY{ALLOWD)" 
MARGIN {channel-setter:]Jnumeric-expression 160 MARGIN 120 
164 MARGIN 43:64 








STATEMENT FORMATS (cont) 





MAT Setter=letter+ letter 174 MAT A=B+€ 
175 MAT V=W+Z 


MAT letter=CON|[(trimmer}] 178 MAT A=CON 
179 MAT V=CON(I} 


MAT letter=IDN{(trimmer)] 185 MAT H=IDN(3,3) 
188 MAT J=IDN 


MAT letter=INV(letter} 190 MAT Q=INV(R} ) 


MAT letter=letter*letter 198 MAT U=V*W 
199 MAT A=V*B 


201 MAT D$=NUL$ 
205 MAT FS=NUL$(I,J) 
206 MAT G$=NUL$(3) 


212 MAT D=(J+4)*E 
213 MAT V=(SIN(U})}*W 


MAT letter='etter —letter 221 MATD=F—E 
MAT letter=TRNiletter} 234 MAT D=TRNIF) 


MAT letter=ZER|{trimmer)] 244 MAT S=ZER 
247 MAT E=ZER(3,4) 























MAT letter$=NUL§|[(trimmer)] 














MAT letter=(numeric-expression)*letter 








MAT INPUT [channel-setter:} 253 MAT INPUT #3:B$ 
letter($){(trimmer)],... 


MAT LINPUT [channel-setter:} 255 MAT LINPUT #3:A$ 
letter$|(trimmer)}.... 256 MAT LINPUT D$ 


MAT PRINT [channel-setter:] 262 MAT PRINT A.B;C; 
letter[$}jseparator].... 265 MAT PRINT #8:B$ 


272 MAT READ A 
277 MAT READ B$(3) 
279 MAT READ #/4-3:0(3,4) 


MAT WRITE channel-setter:letter($}.... 281 MAT WRITE #3:A.B 
283 MAT WRITE #1:K$,¥ 
NEXT numeric-variable 292 NEXT | 
295 NEXT J5 


ON numeric-expression 320 ON J*{4+1}) GOTO 120,300,120,430 
GOTO \ine-number,... 111 ON K GOSUB 10,20,30,50, 10,40 
{asus 


THEN 


PAUSE 332 PAUSE 


PRINT [channel-setter:| 345 PRINT “THE ANSWER IS’;A3 
expression(separator.... 354 PRINT 1,5,K 
356 PRINT TAB{I};I; 


RANDOMIZE 362 RANDOMIZE 


READ [channel-setter:jvariable.... 371 READ ABC 
373 READ #4:A$(45) 
377 READ #1:A3,B7$,C(2,3) 


382 RESET 
384 RESET #3 
388 RESET #1:V3 


391 REM THIS PROG COMPUTES WVB VALUES 
392 REM FOR AN ARRAY 

393 REM 

394 REMARK 


404 SCRATCH #i—2 


SUBEXIT 449 SUBEXIT 
SYSTEM string 476 SYSTEM “RUN’&PI1$ 



















MAT READ [channel-setter:] 
letter[$}( (trimmer)... 







































RESET [channel-setter:[numeric-expression]] 










REM [any characters for a comment] 






























STATEMENT FORMATS (cont) 


127 PRINT USING A$,B,C 
145 MAT PRINT USING “‘#.##tIt".B 
167 PRINT #7:USING C1$F$:G 











DELETE fline-number-list]{“search-string"] 





DELETE 100—-132 
DELETE “INSTRUCTIONS” 
DELETE 1100 “REM” 


LIST 3—4,16,106—200 
LIST “PRINT” 
LIST 1—100 “REM” 


MERGE SUBR,SUBLIB.SUBPAK 











LIST fline-number-list}{‘‘search-string’’] 

















MERGE etement,library|(password)][, volume] 


OLD element,tibrary[{password)][, volume] OLD PRINTSIN,PROGRAMLI8, DISKPAK 
OLD COMPUTE,CATALOGUEDFILE 


PRINT 3—4,10,100—-200 
PRINT “LINPUT" 
PRINT “END"9000—99999 


RESEQ 100:50:RESPROG, PROGLIB,PACKS? 


PRINT [tine-number-list][“search-string’’] 


RESEQUENCE start[:increment|[:file-params] 


RUNOLO element,filename|{password)}[,volume] | RUNOLD COMPUTE,CATALOGUEDFILE 


SAVE element, filename|{password)][, volume} SAVE COMPUTE,CATALOGUEDFILE(PSWRD)} 


SYSTEM [system command} SYSTEM 
SYSTEM FSTATUS PROGRAMLIB,PACK33 










LOGOFF PROCEDURE 


The LOGOFF command terminates the user session. Its purpose is to end the 
task and to return to the operating system any input/output devices used by 
the task. 


This command, the last issued in the task, has the following format: 
LOGOFF 


10 














